home *** CD-ROM | disk | FTP | other *** search
/ PowerPlay 1997 March / PowerPlay0397.iso / T-ONLINE / DECODER / FORMULAR.DIR / 00001_Script_movie script < prev    next >
Text File  |  1997-01-08  |  4KB  |  175 lines
  1. on startMovie
  2.   
  3.   set the floatPrecision to 1
  4.   
  5.   put " " into field "Kostenlos!"
  6.   
  7.   --Buttons
  8.   repeat with m = 14 to 25
  9.     set the puppet of sprite m to true
  10.   end repeat
  11.   
  12.   
  13.   
  14.   --Farbe Zahlenfelder
  15.   repeat with t = 18 to 30
  16.     set the forecolor of member t to 255
  17.   end repeat
  18.   
  19.   --adresse wieder einfⁿgen
  20.   --  if field "adress" = Empty then
  21.   --      nothing
  22.   --  else
  23.   --    repeat with i = 1 to 10
  24.   --      put line i of field "adress" into line 1  of field (i+1)
  25.   --    end repeat
  26.   --  end if
  27.   --  
  28.   --  if field "zahl" = Empty then
  29.   --    nothing
  30.   --  else
  31.   --    repeat with i = 1 to 7
  32.   --      put line i of field "zahl" into line 1  of field (i+11)
  33.   --    end repeat
  34.   --  end if
  35.   --  
  36.   --end startMovie
  37.   --
  38.   --on stopMovie
  39.   --  --adresse in den Darsteller "Adress" einlesen
  40.   --  put empty into field "adress"
  41.   --  repeat with i =  2 to 11
  42.   --    put line 1 of field i & return after field "adress"
  43.   --  end repeat 
  44.   --  
  45.   --  put empty into field "zahl"
  46.   --  repeat with i =  12 to 17
  47.   --    put field i & return after field "zahl"
  48.   --  end repeat
  49.   
  50.   
  51. end stopMovie
  52.  
  53.  
  54. on ⁿbertrag1
  55.   put empty into field "produkt1"
  56.   
  57.   set x=the number of chars in field "stk1"
  58.   set y=5-x
  59.   repeat with i=1 to y 
  60.     put " " after field "produkt1"
  61.   end repeat
  62.   put field "stk1" after field "produkt1"
  63.   
  64.   put "  " after field "produkt1"
  65.   
  66.   put "Faxmodem Speedster 14.400" after field "produkt1"
  67.   
  68.   repeat while the number of chars in field "produkt1" <35
  69.     put " " after field "produkt1"
  70.   end repeat
  71.   
  72.   put "(8110)    " after field "produkt1"
  73.   put "   69,00 DM" after field "produkt1"
  74.   
  75.   
  76.   if the number of chars in field "gesmtprx1"=7 then
  77.     put "       " & field "gesmtprx1" after field "produkt1"
  78.   end if
  79.   if the number of chars in field "gesmtprx1"=8 then
  80.     put "      " & field "gesmtprx1" after field "produkt1"
  81.   end if
  82.   if the number of chars in field "gesmtprx1"=9 then
  83.     put "     " & field "gesmtprx1" after field "produkt1"
  84.   end if
  85.   
  86.   set the fontSize of member "produkt1" to 10 
  87.   
  88.   put field "produkt1" & return after field "bestelltext"
  89.   
  90. end
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106. on versandgeb
  107.   --Versandgebⁿhren zur Gesamtsumme addieren
  108.   global summe
  109.   put summe into x
  110.   set x = (x+9.6)
  111.   put x into field "versandlagera"
  112.   repeat with a = 1 to the number of chars in field "versandlagera"
  113.     if char a of field "versandlagerA"  = "." then
  114.       put "," after field "versandlagerB" 
  115.     else
  116.       put char a of field "versandlagerA" after field "versandlagerB" 
  117.     end if
  118.   end repeat
  119.   put field "versandlagerB"& "0 DM" into field "versandsumme"
  120.   delete field "VersandlagerB"
  121.   put field "Versand"& return after field "Bestelltext"
  122.   
  123.   
  124.   put return & field "Gesamtsumme" after field "Bestelltext"
  125.   
  126.   if the number of chars in field "Versandsumme"=7 then
  127.     put "       " & field "Versandsumme" after field "Bestelltext"
  128.   end if
  129.   if the number of chars in field "Versandsumme"=8 then
  130.     put "      " & field "Versandsumme" after field "Bestelltext"
  131.   end if
  132.   if the number of chars in field "Versandsumme"=9 then
  133.     put "     " & field "Versandsumme" after field "Bestelltext"
  134.   end if
  135.   if the number of chars in field "Versandsumme"=10 then
  136.     put "    " & field "Versandsumme" after field "Bestelltext"
  137.   end if
  138.   
  139.   
  140.   put return after field "Bestelltext"
  141.   
  142.   
  143.   
  144.   
  145.   
  146.   
  147.   
  148.   
  149. end versandgeb
  150.  
  151. on versandfrei
  152.   
  153.     put return & field "Gesamtsumme" after field "Bestelltext"
  154.   
  155.   if the number of chars in field "summe"=7 then
  156.     put "       " & field "summe" after field "Bestelltext"
  157.   end if
  158.   if the number of chars in field "summe"=8 then
  159.     put "      " & field "summe" after field "Bestelltext"
  160.   end if
  161.   if the number of chars in field "summe"=9 then
  162.     put "     " & field "summe" after field "Bestelltext"
  163.   end if
  164.   if the number of chars in field "summe"=10 then
  165.     put "    " & field "summe" after field "Bestelltext"
  166.   end if
  167.   
  168.   
  169.    put return after field "Bestelltext"
  170. end versandfrei
  171.  
  172.  
  173.  
  174.  
  175.